home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
ReOrganize.zprx
< prev
next >
Wrap
Text File
|
1995-01-24
|
2KB
|
101 lines
/*
$VER: ReOrganize 1.02 (23.01.95) Copyright (c) Jörn Krüger
Funktion:
---------
ReOrganize löscht alle mit L markierten Nachrichten in den
ZPoint-Brettern. Der Einsatz ist eigentlich nur mit einem
Cron-Utility sinnvoll. (z.B. CyberCron)
Installation:
-------------
1. Datei unter dem Namen ReOrganize.zprx in das Verzeichniss REXX:
oder ZPoint:rexx kopieren
2. Startpfad für ZPoint im Script anpassen
3. Ohne Parameter vom CLI aus starten (RX ReOrganize.zprx)
4. Nach dem Durchlauf wird die Anzahl der gelöschten
Nachrichten angezeigt.
History:
--------
1.00 05.01.95 erste Version
1.01 06.01.95 Kommentare eingefügt
1.02 23.01.95 potentieller Fehler in "Reorganize starten"
entfernt (Tip von R. Seichter)
Schwächen:
----------
Zur Zeit arbeitet es nur mit einem ZPoint Port
Autor:
------
Jörn Krüger Krueger@amigafun.westfalen.de
Zur Wiese 7
48163 Münster
02536 / 1205
Rechtliches:
------------
Sie dürfen dieses Skript beliebig kopieren, solange es zusammen
mit Zodiac's Point eingesetzt wird, aber verändern Sie es bitte
nicht ohne Erlaubnis des Autors.
*/
/* Startup */
OPTIONS RESULTS
GELADEN = 0
/* ZPoint suchen und starten wenn nicht vorhanden */
if ~SHOW('P', 'ZPoint') then do
ADDRESS COMMAND
/* ----------- Hier eigenen Pfad eintragen!!! ------------ */
'Run >NIL: SYS:DFÜ/zp CONFIG=SYS:Prefs/Presets/AIGM.zp'
/* ------------------------------------------------------- */
GELADEN = 1
do 2 while ~SHOW( 'P', 'ZPoint' )
'WaitForPort ZPoint'
end
if RC = 5 then do
say 'ZPoint konnte nicht geladen werden!'
EXIT
end
end
/* Jetzt sollte ZPoint auf jeden Fall geladen sein */
ADDRESS 'ZPoint'
/* in das Boardmenu wechseln */
WHICHLEVEL
if (RESULT ~= "BOARDMENU") then do
BOARDMENU
end
/* Reorganisation starten */
REORGANIZE
killed = RESULT
SAY 'Gelöschte Nachrichten: 'killed
IF killed = 0 THEN
mainmenu
/* ZPoint beenden wenn es nachträglich gestartet wurde */
if GELADEN = 1 then do
SHUTUP
end